Bandai Visual CD-ROM Previews 3/Bandai Visual CD-ROM Previews 3.iso/LARTHUR'S LEGEND/battle1/00014_Script_14

Text File | 1995-02-07 | 2KB | 90 lines

-----------------------------------------------------
on movesprite plsH , plsV , startNum , endNum
  if the castNum of sprite 2 < endNum then
    set the castNum of sprite 2  =the castNum of sprite 2 + 1
  else set the castNum of sprite 2  to startNum
  global H , V
  set  H = H + plsH
  set  V = V + plsV
  set the locH of sprite 2 = H
  set the locV of sprite 2 = V
  --    showglobals
--  updatestage
end movesprite
-----------------------------------------------------
on setsprite caNum
  global H , V
  set the castNum of sprite 2 to caNum
  set the type of sprite 2 = 1
  set the ink of sprite 2 = 36
  set the locH of sprite 2 = H
  set the locV of sprite 2 = V
end setsprite
------------------------------------------------------
on lcheckpos chkH , chkV , lav
  if the locH of sprite 2 < chkH   then go to lav
end if
end lcheckpos
------------------------------------------------------
on rcheckpos chkH , chkV , lav
if the locH of sprite 2 > chkH   then
picset
go to lav
end if
end rcheckpos
------------------------------------------------------
on picset
puppetsprite 2 , true
global H , V
set H = 620
set V = random (180) + 200
set the type of sprite 2 = 1
set the ink of sprite 2 = 36
set the castNum of sprite 2 = 2
set the locH of sprite 2 = H
set the locV of sprite 2 = V
--updatestage
end picset
-----------
on Moveken
set the castNum of sprite 15 to 26
global ken1
set ken1 = kenA(mNew)
--
factory kenA
method mNew
dontpassevent
global ken1
when mousedown then kendown
set the perframehook to me
puppetsprite 15, 1
method mMove x, y
set the locH of sprite 15 to x
set the locV of sprite 15 to y
method mAtFrame
dontpassevent
me(mMove, the mouseH, the mouseV)

on kendown
puppetsound "襃"
set the castNum of sprite 15 to 27
when mouseup then moveken
end


method mDispose
global ken1
set ken1 = 1
when keydown then nothing
--

on clearken
global ken1
set the perframehook = 0
if objectp(ken1) = 1 then
ken1(mDispose)
end if
end